home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / SCH110B.ZIP;1 / DMADDNEW.PRG < prev    next >
Encoding:
Text File  |  1993-02-24  |  1.1 KB  |  46 lines
  1. *****
  2. * Add a new record to the database
  3. *****
  4. clearscrn()
  5. setconfirm(.t.)
  6. setbell(.t.)
  7. superbox(0,0,24,79,.t.,"≤",.f.)
  8. superbox(05,5,17,70,.f.,"",.t.)
  9. do while .t.
  10.     mvlast=space(15)
  11.     mvfirst=space(15)
  12.     mvstreet=space(25)
  13.     mvcity=space(25)
  14.     mvstate=space(2)
  15.     mvzip=space(5)
  16.     mvphone=space(13)
  17.     setcursor(.t.)
  18.     readexit(.f.)
  19.     sayget(08,8," Last Name: ","mvlast")
  20.     sayget(09,8,"First Name: ","mvfirst")
  21.     sayget(10,8,"    Street: ","mvstreet")
  22.     sayget(11,8,"      City: ","mvcity")
  23.     sayget(12,8,"     State: ","mvstate","","udf('dmstates')")
  24.     sayget(13,8,"       Zip: ","mvzip")
  25.     sayget(14,8,"     Phone: ","mvphone","(999)999-9999")
  26.     read
  27.     readexit()
  28.     if lastkey()=27
  29.         return
  30.     endif
  31.     if rlock()
  32.         appblank()
  33.         insert("lastname","mvlast")
  34.         insert("firstname","mvfirst")
  35.         insert("street","mvstreet")
  36.         insert("city","mvcity")
  37.         insert("state","mvstate")
  38.         insert("zip","mvzip")
  39.         insert("phone","mvphone")
  40.         runlock()
  41.     else
  42.         message("Unable to lock record for update")
  43.     endif
  44. enddo
  45. return
  46.